From: Leo Liu <sdl.web@gmail.com>
Date: Wed, 29 Feb 2012 15:05:42 +0000 (+0800)
Subject: Reset sys to nil in define-abbrevs
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~581
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e4c26820e2ad5875518c85b58c617620bddf2449;p=emacs.git

Reset sys to nil in define-abbrevs

Otherwise all abbrevs after are regarded as system ones and not saved
to disk, causing data loss.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 934ce8b9f0f..e709ccf272d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-02-29  Leo Liu  <sdl.web@gmail.com>
+
+	* abbrev.el (define-abbrevs): Reset sys to nil.
+
 2012-02-28  Thierry Volpiatto  <thierry.volpiatto@gmail.com>
 
 	* files.el (file-equal-p): Rename from `files-equal-p'.
diff --git a/lisp/abbrev.el b/lisp/abbrev.el
index ade36f2f9a0..7beee0a1752 100644
--- a/lisp/abbrev.el
+++ b/lisp/abbrev.el
@@ -191,7 +191,8 @@ the ones defined from the buffer now."
 		      (not (eolp)))
 	  (setq name (read buf) count (read buf))
 	  (if (equal count '(sys))
-	      (setq sys t count (read buf)))
+	      (setq sys t count (read buf))
+	    (setq sys nil))
 	  (setq exp (read buf))
 	  (skip-chars-backward " \t\n\f")
 	  (setq hook (if (not (eolp)) (read buf)))